%% @author Martin Metal <martin.metal@web.de> [http://martin.metal.volny.cz]
%% @doc Functions calculating velocities achieved by objects dropped in a vacuum.
%%  @reference  from  <a href=  "http://shop.oreilly.com/product/0636920025818.do">In troducing Erlang</a>,
%% O'Reilly Media, Inc., 2012.
%% @copyright 2014 by Martin Metal
%% @version 0.1

-module(app).
-export([height_to_speed/1]).
-import(drop, [fall_velocity/1, fall_velocity_ex/1]).
-import(tools, [mps_to_mph/1,mps_to_kph/1,product/1]).
-import(fact, [factorial/1]).

height_to_speed(Meters) -> 
   Result = {
		mps_to_kph(fall_velocity({moon, Meters})),
		mps_to_kph(fall_velocity_ex({moon, Meters})),
      factorial(21),
      product([3,2,7,3,4,5])
	},
   Result.
%% end.
